关与VB很急```

来源：百度知道 编辑：UC知道 时间：2024/05/27 16:34:40
Private Sub Command1_Click()
If Text1.Text <> "4" Then
Randomize
Do While k = 0
bbb = Int(Rnd * 40 + 1)
If aaa(bbb) <> 999 Then
k = 1
aaa(bbb) = 999
End If
Loop
kk = 0
Timer1.Interval = 10
Timer1.Enabled = True
Command1.Visible = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
End If
End Sub
谁给我解释哈嘛.谢谢```

Private Sub Command1_Click() '按下command1时执行的内容开始
If Text1.Text <> "4" Then '如果文本框4的内容不为4则执行内容开始
Randomize '随机函数rnd随机初始化
Do While k = 0 'do循环开始，循环条件是k=0
bbb = Int(Rnd * 40 + 1) '变量bbb=随机生成的0-40之间的数+1并进行整数
If aaa(bbb) <> 999 Then '如果数组aaa中第bbb个数不等于999则执行内容开始
k = 1 '变量k=1
aaa(bbb) = 999 '数组aaa中第bbb个数等于999
End If '如果数组aaa中第bbb个数不等于999则执行内容结束
Loop 'do循环结束
kk = 0 '变量kk=1
Timer1.Interval = 10 '记时器1的周期设为0.010秒。
Timer1.Enabled = True '记时器1开始起作用。
Command1.Visible = False '令Command1不可见。
Command2.Enabled = False '令Command2不起作用。
Command3.Enabled = False '令Command3不起作用。
Command4.Enabled = False '令Command4不起作用。
End If '如果文本框4的内容不为4则执行内容结束
End Sub '按下command1时执行的内容结束

程序是错误的,无法通过编译,所谓aaa函数未定义.
把函数aaa写出来吧!

Private Sub Command1_Click()

If Text1.Text <> "4" Then '如果Tex